1) U:LIBMAC.OLD[PAS,EJG] and 2) U:LIBMAC.MAC[PAS,EJG]	8-17-78 18:57	pages 24,24

**** File 1) U:LIBMAC.OLD[PAS,EJG], Page 24 line 106
1)		XCT	FILLKP(REG)		    ;LOOKUP
1)		JRST	SETEOF			    ;ERROR ON LOOKUP OR OPEN
**** File 2) U:LIBMAC.MAC[PAS,EJG], Page 24 line 106
2)		PUSHJ	TOPP	,RESLKP		    ;GO LOOKUP
2)		JRST	SETEOF			    ;ERROR ON LOOKUP OR OPEN
***************


**** File 1) U:LIBMAC.OLD[PAS,EJG], Page 24 line 114
1)	;
**** File 2) U:LIBMAC.MAC[PAS,EJG], Page 24 line 115
2)	RESLKP:	PUSH	TOPP	,FILPPN(REG)	    ;SAVE PPN CLOBBERED BY LOOKUP
2)		XCT	FILLKP(REG)		    ;LOOKUP
2)		CAIA
2)		AOS	-1(TOPP)
2)		POP	TOPP	,FILPPN(REG)	    ;RESTORE PPN
2)		POPJ	TOPP	,
2)	;
***************


**** File 1) U:LIBMAC.OLD[PAS,EJG], Page 24 line 124
1)		XCT	FILENT(REG)		    ;ENTER
1)		JRST	REWERR			    ;ERROR ON ENTER
**** File 2) U:LIBMAC.MAC[PAS,EJG], Page 24 line 132
2)		PUSHJ	TOPP	,REWENT		    ;GO ENTER
2)		JRST	REWERR			    ;ERROR ON ENTER
***************


**** File 1) U:LIBMAC.OLD[PAS,EJG], Page 24 line 133
1)	;
**** File 2) U:LIBMAC.MAC[PAS,EJG], Page 24 line 142
2)	REWENT:	PUSH	TOPP	,FILPPN(REG)	    ;SAVE PPN CLOBBERED BY ENTER
2)		XCT	FILENT(REG)		    ;ENTER
2)		CAIA
2)		AOS	-1(TOPP)
2)		POP	TOPP	,FILPPN(REG)	    ;RESTORE PPN
2)		POPJ	TOPP	,
2)	;
***************


**** File 1) U:LIBMAC.OLD[PAS,EJG], Page 24 line 200
1)		MOVEM	REG3	,FILPPN(REG)	    ;PROJECT-PROGR. NUMBER
1)		HLLZS   AC1	,FILEXT(REG)	    ;TO GET CORRECT CRE-DATE
**** File 2) U:LIBMAC.MAC[PAS,EJG], Page 24 line 216
2)		HLLZS   AC1	,FILEXT(REG)	    ;TO GET CORRECT CRE-DATE
***************


**** File 1) U:LIBMAC.OLD[PAS,EJG], Page 24 line 204
1)		HRRI	AC1	,FILNAM(REG)	    ;WHERE TO DEPOSIT IT
**** File 2) U:LIBMAC.MAC[PAS,EJG], Page 24 line 219
2)		MOVEM	REG3	,FILPPN(REG)	    ;PROJECT-PROGR. NUMBER
2)		HRRI	AC1	,FILNAM(REG)	    ;WHERE TO DEPOSIT IT
***************